CLS
SCREEN 12
stars = 500
DIM x(stars), y(stars), vx(stars), vy(stars), k(stars)
RANDOMIZE TIMER
FOR i = 1 TO stars
x(i) = INT(RND * 640)
y(i) = INT(RND * 480)
PSET (x(i), y(i))
NEXT i
FOR i = 1 TO stars
k(i) = (y(i) - 240) / (x(i) - 319.9)
IF x(i) - 319.9 > 0 THEN
vx(i) = 1
ELSE
vx(i) = -1
END IF
IF y(i) - 240.1 > 0 THEN
k(i) = ABS(k(i))
ELSE
k(i) = -ABS(k(i))
END IF
vy(i) = k(i)
NEXT i
back:
FOR i = 1 TO stars
PRESET (x(i), y(i))
x(i) = x(i) + vx(i)
y(i) = y(i) + vy(i)
'IF x(i) < 0 OR x(i) > 640 OR y(i) < 0 OR y(i) > 480 THEN




PSET (x(i), y(i))
NEXT i
GOTO back